home *** CD-ROM | disk | FTP | other *** search
/ Ultra Pack / UltraComputing Partner Applications.iso / Caldera / Graffiti / REXX / glassr.rx < prev   
Encoding:
Text File  |  1996-03-29  |  1.2 KB  |  67 lines
  1. #!/bin/csh
  2.  
  3.     sendCmd tv_updateundo
  4.     
  5. #    parse ARG m x y r b
  6.     set m = $1
  7.     set x = $2
  8.     set y = $3
  9.     set r = $4
  10.     set b = $5
  11.  
  12.     if $m != 5 then
  13.         @ r = 40
  14.     endif
  15.  
  16.     sendCmd tv_setdrawmode color
  17.  
  18.     sendCmd tv_densitylinex 0 32 255 0
  19.  
  20.     sendCmd tv_densitylinex 33 128 0 0 
  21.  
  22.     sendCmd tv_densitylinex 129 255 0 255 
  23.  
  24.  
  25.     sendCmd tv_xcenter
  26.     sendCmd tv_yclear
  27.  
  28.     @ delta = $r
  29.     @ delta2 = ( $delta * 3 ) / 4
  30.  
  31.     sendCmd tv_setapen 255 255 255 255
  32.     sendCmd tv_setbpen 0 0 1 255
  33.  
  34.     @ v1 = $x - $delta2
  35.     @ v2 = $y - $delta2
  36.     @ v3 = $x + $delta2
  37.     @ v4 = $y + $delta2
  38.     sendCmd tv_brush $v1 $v2 $v3 $v4
  39.     sendCmd tv_wrapx 1
  40.     sendCmd tv_wrapy 1
  41.  
  42.  
  43.     sendCmd tv_setdrawmode shade
  44.     sendCmd tv_areacircle $v3 $v4 $delta    0 0 0
  45.     @ dd = $delta - 1
  46.     sendCmd tv_areacircle $v3 $v4 $dd    0 0 0
  47.     @ dd = $delta - 2
  48.     sendCmd tv_areacircle $v3 $v4 $dd    0 0 0
  49.     @ dd = $delta - 3
  50.     sendCmd tv_areacircle $v3 $v4 $dd    0 0 0
  51.     @ dd = $delta - 4
  52.     sendCmd tv_areacircle $v3 $v4 $dd    0 0 0
  53.     sendCmd tv_setdrawmode color
  54.  
  55.     sendCmd tv_cycleon
  56.     sendCmd tv_areacircle $x $y $delta 0 0 0
  57.     sendCmd tv_cycleoff
  58.  
  59.     sendCmd tv_densityon
  60.     @ v1 = $x - $delta / 2
  61.     @ v2 = $y - $delta / 2
  62.     sendCmd tv_areacircle $x $y $delta $v1 $v2 0
  63.     sendCmd tv_densityoff
  64.  
  65.     sendCmd tv_pen 1
  66.  
  67.